home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / prodpack.zip / DB4PPSRC.EXE / _FXEXREN.PRG < prev    next >
Text File  |  1993-05-04  |  394b  |  25 lines
  1. PROCEDURE _FXExREnv
  2. *---------------------------------------------------------------------
  3. *---------------------------------------------------------------------
  4.  
  5.   IF gl_near
  6.     SET NEAR ON
  7.   ENDIF
  8.  
  9.   IF .NOT. gl_exact
  10.     SET EXACT OFF
  11.   ENDIF
  12.  
  13.   IF gl_safety
  14.     SET SAFETY ON
  15.   ENDIF
  16.  
  17.   SET CATALOG ON
  18.  
  19.   IF _TalkMode( gl_talk )
  20.   ENDIF
  21.  
  22. RETURN
  23. *-- EOP: _FXExREnv
  24.  
  25.